Georgia Wildfire Prevention/Georgia Wildfire Prevention.iso/pc/media/dirs/BackUp/Credits.dir/00022_Script_cmr-roll

Text File | 2002-10-11 | 1KB | 57 lines

property plain,rolled,clicked,spnum,state,flashstate

on new me
  set spnum=the spritenum of me
  set plain=sprite(spnum).member.name
  set state=0
  flashstate=0
end

on beginsprite me
  if rolled="x" then set rolled=plain&"hot"
  if clicked="x" then set clicked=plain
end

on getpropertydescriptionlist me
  set proplist=[#rolled:[#comment:"Name of rollover image",#format:#string,#default:"x"],#clicked:[#comment:"Name of clicked image",#format:#string,#default:"x"]]
  return proplist
end

on mouseenter me
  if state<>1 then
    set state=1
    set the member of sprite spnum=member rolled
    updatestage
  end if
end

on mouseleave me
  if state=1 then
    set state=0
    set the member of sprite spnum=plain
    updatestage
  end if
end

on mousedown me
  set state=3
  set the member of sprite spnum=member clicked
  updatestage
  pass
end

on flash me
  if flashstate=0 then
    set the member of sprite spnum=member rolled
  else
    set the member of sprite spnum=plain
  end if
  updatestage
  flashstate=not(flashstate)
end